%!
%%EndComments
%
% Xgraph postscript output
% Rick Spickelmier and David Harrison
% University of California, Berkeley
%
% Scaling information
%
% Change these if you would like to change the centering
% of the plot in either dimension
/X-CENTER-PLOT 1 def
/Y-CENTER-PLOT 1 def
%
% Page size computation
clippath pathbbox
/page-height exch def
/page-width exch def
pop pop
% Determine whether rotation is required
538.583 page-width gt
{ % Rotation required
   90 rotate
   0 page-width neg translate
   % Handle centering
   Y-CENTER-PLOT 1 eq { % Center in y
      page-height 538.583 sub 2 div
   } { % Don't center in y
      0
   } ifelse
   X-CENTER-PLOT 1 eq { % Center in x
      page-width 538.583 sub 2 div
   } { % Don't center in x
      0
   } ifelse
   translate
} { % No rotation - just handle centering
   X-CENTER-PLOT 1 eq { % Center in x
      page-width 538.583 sub 2 div
   } { % Don't center in x
      0
   } ifelse
   Y-CENTER-PLOT 1 eq { % Center in y
      page-height 538.583 sub 2 div
   } { % Don't center in y
      0
   } ifelse
   translate
} ifelse
% Set the scale
0.06 0.06 scale
% Font Handling Functions
%
% Function giving y-offset to center of font
% Assumes font is set and uses numbers to gauge center
%
/choose-font	% stack: fontsize fontname => ---
{
   findfont 
   exch scalefont 
   setfont
   newpath
   0 0 moveto (0) true charpath flattenpath pathbbox
   /top exch def pop
   /bottom exch def pop
   bottom top bottom top add 2 div
   /center-font-val exch def 
   /upper-font-val exch def 
   /lower-font-val exch def
} def
%
% Justfication offset routines
%
/center-x-just	% stack: (string) x y => (string) newx y
{
   exch 2 index stringwidth pop 2 div sub exch
} def
%
/left-x-just	% stack: (string) x y => (string) newx y
{ 
} def
%
/right-x-just	% stack: (string) x y => (string) newx y
{
   exch 2 index stringwidth pop sub exch
} def
%
/center-y-just	% stack: (string) x y => (string) x newy
{
   center-font-val sub
} def
%
/lower-y-just	% stack: (string) x y => (string) x newy
{
   lower-font-val sub
} def
%
/upper-y-just	% stack: (string) x y => (string) x newy
{
   upper-font-val sub
} def
%
% Shows a string on the page subject to justification
%   
/just-string	% stack: (string) x y just => ---
{
   dup 0 eq { pop center-x-just center-y-just 		} if
   dup 1 eq { pop left-x-just center-y-just		} if
   dup 2 eq { pop left-x-just upper-y-just	 	} if
   dup 3 eq { pop center-x-just upper-y-just 		} if
   dup 4 eq { pop right-x-just upper-y-just	 	} if
   dup 5 eq { pop right-x-just center-y-just 		} if
   dup 6 eq { pop right-x-just lower-y-just	 	} if
   dup 7 eq { pop center-x-just lower-y-just  		} if
   dup 8 eq { pop left-x-just lower-y-just	 	} if
   moveto show
} def
%
% Marker definitions
/mark0 {/size exch def /y exch def /x exch def
newpath x size sub y size sub moveto
size size add 0 rlineto 0 size size add rlineto
0 size size add sub 0 rlineto closepath fill} def
/mark1 {/size exch def /y exch def /x exch def
newpath x size sub y size sub moveto
size size add 0 rlineto 0 size size add rlineto
0 size size add sub 0 rlineto closepath stroke} def
/mark2 {/size exch def /y exch def /x exch def
newpath x y moveto x y size 0 360 arc stroke} def
/mark3 {/size exch def /y exch def /x exch def
newpath x size sub y size sub moveto x size add y size add lineto
x size sub y size add moveto x size add y size sub lineto stroke} def
/mark4 {/size exch def /y exch def /x exch def
newpath x size sub y moveto x y size add lineto
x size add y lineto x y size sub lineto
closepath stroke} def
/mark5 {/size exch def /y exch def /x exch def
x y size mark1
newpath x size sub y moveto size size add 0 rlineto stroke} def
/mark6 {/size exch def /y exch def /x exch def
newpath x y moveto x y size 0 360 arc fill} def
/mark7 {/size exch def /y exch def /x exch def
newpath x y moveto x size sub y size sub lineto
x size add y size sub lineto closepath fill
newpath x y moveto x size add y size add lineto
x size sub y size add lineto closepath fill} def
%
% Main body begins here
%
0 setgray
300 /Times-Bold choose-font
(X Graph) 8527 8856 4 just-string
200 /Times-Roman choose-font
(coro_varia_loop.txt) 6576 8104 2 just-string
(coro_varia_qtop.txt) 6576 7812 2 just-string
(thread_varia_loop.txt) 6576 7520 2 just-string
(thread_varia_qtop.txt) 6576 7228 2 just-string
14 setlinewidth
[] 0 setdash
newpath
  6576 8136 moveto
  8886 8136 lineto
stroke
14 setlinewidth
[25] 0 setdash
newpath
  6576 7844 moveto
  8886 7844 lineto
stroke
14 setlinewidth
[50] 0 setdash
newpath
  6576 7552 moveto
  8886 7552 lineto
stroke
14 setlinewidth
[75] 0 setdash
newpath
  6576 7260 moveto
  8886 7260 lineto
stroke
(Y x 10) 750 8396 5 just-string
(6) 750 8396 8 just-string
(3) 8776 380 8 just-string
(X x 10) 8776 380 5 just-string
(0.0000) 860 723 5 just-string
(1.0000) 860 1175 5 just-string
(2.0000) 860 1626 5 just-string
(3.0000) 860 2078 5 just-string
(4.0000) 860 2529 5 just-string
(5.0000) 860 2981 5 just-string
(6.0000) 860 3432 5 just-string
(7.0000) 860 3884 5 just-string
(8.0000) 860 4335 5 just-string
(9.0000) 860 4787 5 just-string
(10.0000) 860 5238 5 just-string
(11.0000) 860 5690 5 just-string
(12.0000) 860 6141 5 just-string
(13.0000) 860 6593 5 just-string
(14.0000) 860 7044 5 just-string
(15.0000) 860 7496 5 just-string
(16.0000) 860 7947 5 just-string
(0.0000) 1182 90 7 just-string
(5.0000) 2761 90 7 just-string
(10.0000) 4340 90 7 just-string
(15.0000) 5919 90 7 just-string
[] 0 setdash
8 setlinewidth
newpath
  950 723 moveto
  6486 723 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 1175 moveto
  6486 1175 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 1626 moveto
  6486 1626 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 2078 moveto
  6486 2078 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 2529 moveto
  6486 2529 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 2981 moveto
  6486 2981 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 3432 moveto
  6486 3432 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 3884 moveto
  6486 3884 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 4335 moveto
  6486 4335 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 4787 moveto
  6486 4787 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 5238 moveto
  6486 5238 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 5690 moveto
  6486 5690 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 6141 moveto
  6486 6141 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 6593 moveto
  6486 6593 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 7044 moveto
  6486 7044 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 7496 moveto
  6486 7496 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  950 7947 moveto
  6486 7947 lineto
stroke
[] 0 setdash
8 setlinewidth
newpath
  1182 8106 moveto
  1182 380 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  2761 8106 moveto
  2761 380 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  4340 8106 moveto
  4340 380 lineto
stroke
[] 0 setdash
2 setlinewidth
newpath
  5919 8106 moveto
  5919 380 lineto
stroke
14 setlinewidth
[] 0 setdash
newpath
  1202 731 moveto
  1222 739 lineto
  1261 756 lineto
  1340 788 lineto
  1498 854 lineto
  1814 984 lineto
  2445 1245 lineto
  3708 1767 lineto
  6234 2810 lineto
stroke
14 setlinewidth
[25] 0 setdash
newpath
  1222 883 moveto
  1261 975 lineto
  1340 1187 lineto
  1498 1582 lineto
  1814 2373 lineto
  2445 3954 lineto
  3708 7116 lineto
stroke
14 setlinewidth
[50] 0 setdash
newpath
  1202 739 moveto
  1222 755 lineto
  1261 787 lineto
  1340 850 lineto
  1498 977 lineto
  1814 1231 lineto
  2445 1739 lineto
  3708 2756 lineto
  6234 4788 lineto
stroke
14 setlinewidth
[75] 0 setdash
newpath
  1222 994 moveto
  1261 1095 lineto
  1340 1325 lineto
  1498 1742 lineto
  1814 2610 lineto
  2445 4326 lineto
  3708 7755 lineto
stroke
showpage
% End of xgraph output
